home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00092.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  685 b   |  29 lines
  1. on mouseUp
  2.   global bioInfo
  3.   if the doubleClick then
  4.     exit
  5.   end if
  6.   set bioInfo to []
  7.   if (the hilite of member "biodata 14" = 0) and (the hilite of member "biodata 15" = 0) then
  8.     cursor(0)
  9.     alert("Please make a selection in the Current Goal category.")
  10.   else
  11.     repeat with i = 1 to 11
  12.       if the hilite of member ("biodata " & i) = 1 then
  13.         append(bioInfo, i)
  14.       end if
  15.     end repeat
  16.     repeat with i = 13 to 15
  17.       if the hilite of member ("biodata " & i) = 1 then
  18.         append(bioInfo, i)
  19.       end if
  20.     end repeat
  21.     if count(stamp) > 0 then
  22.       giveadvice()
  23.     end if
  24.     writecycleinfo()
  25.     prepBioDataSummary()
  26.     cursor(0)
  27.   end if
  28. end
  29.